home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / screen / pset.bas < prev    next >
BASIC Source File  |  1994-06-01  |  162b  |  11 lines
  1. 3 CLS
  2. 5 SCREEN@ 0
  3. 8 FOR I=0 TO 1000 STEP 1
  4. 10 RANDOMIZE TIME
  5. 20 X=INT(RND*639)+1
  6. 30 Y=INT(RND*479)+1
  7. 38 W=INT(RND*16)
  8. 40 PSET(X,Y),%W
  9. 50 NEXT
  10. 60 GOTO 3
  11.